home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 2 / Atari Mega Archive CD - Volume 2.iso / 8bit / cislib_a / clldos.bxl < prev    next >
Text File  |  1995-04-22  |  343b  |  11 lines
  1. 1000 Calldos=Dpeek(10)-6 
  2. 1009 Rem CALL$ WILL CONTAIN PLA AND JMP CALLDOS 
  3. 1010 Call$=Chr$($68),Chr$($4c),Chr$(Calldos&$ff),Chr$(Int(Calldos/256)) 
  4. 1020 Cmdbuffer=Dpeek(10)+$3f 
  5. 1030   While 1 
  6. 1040   Input "COMMAND >",Cmd$ 
  7. 1050   Cmd$=Cmd$,Chr$($9b) 
  8. 1060   Move Adr(Cmd$),Cmdbuffer,Len(Cmd$) 
  9. 1070   Junk=Usr(Adr(Call$)) 
  10. 1080   Endwhile  
  11.